OpenService vraci chybu
Otázka od: Andreas Bednarek
6. 11. 2004 4:21
Zdravim,
potreboval bych pomoct, mam zahadny problem, nemuzu uspesne zavolat OpenService
abych zjistil, jestli bezi DB server Firebird. Asi takto (samozrejme tam jinak
mam i kontrolu chyb):
var
scmgr_handle, svc_handle : SC_HANDLE;
begin
scmgr_handle := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
svc_handle := OpenService(scmgr_handle,
PChar('Firebird Server - DefaultInstance'), SERVICE_QUERY_STATUS or
SERVICE_START);
...
end;
OpenService selze, svc_handle = 0 a GetLastError hlasi:
1060 "Zadana sluzba neni nainstalovana sluzba. "
At mam Firebird server stoply nebo spusteny chova se to stejne a to i na
ostatni sluzby.
Nemate tuseni kde delam chybu? Program bezi pod administratorskymi pravy na
WinXP.
Diky za kazdou radu
A.B.
Odpovedá: Milan Tomes
7. 11. 2004 18:50
Mam neblahy pocit, ze sluzba se jmenuje uplne jinak - InterBaseServer...
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner@clexpert.cz]On Behalf Of Andreas Bednarek
> Sent: Saturday, November 06, 2004 4:21 AM
>
> potreboval bych pomoct, mam zahadny problem, nemuzu uspesne
> zavolat OpenService abych zjistil, jestli bezi DB server
>
> var
> scmgr_handle, svc_handle : SC_HANDLE;
>
> begin
>
> scmgr_handle := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
> svc_handle := OpenService(scmgr_handle,
PChar('Firebird
> Server - DefaultInstance'), SERVICE_QUERY_STATUS or
SERVICE_START);
>
> end;
>
> OpenService selze, svc_handle = 0 a GetLastError hlasi:
>
> 1060 "Zadana sluzba neni nainstalovana sluzba. "
Odpovedá: Andreas Bednarek
8. 11. 2004 15:14
> Mam neblahy pocit, ze sluzba se jmenuje uplne jinak - InterBaseServer...
>
> S pozdravem
>
> Milan Tomes
No to je docela podstatna vec 
A sluzbu 'InterBaseServer' dokonce najdu,
coz je pokrok! Nicmene jak potom rozlisim InterBase of Firebirdu? Me to v
mem pripade vzdy najde a hlasi stav serveru IB nikoli FB. Mam tady totiz oba
a v pripade moji aplikace je to casty stav, ze bezi IB/FB na jednom pocitaci
a ja bych potrebovat vzdy zjistit stav FB serveru (zda je nainstalovany, zda
bezi).
Jak tedy zamerit Firebird?
Diky
A.B.
Odpovedá: Milan Tomes
8. 11. 2004 15:06
Otevri si seznam sluzeb - Control panel - Nastroje pro spravu - Sluzby.
Najdi si prislusnou sluzbu
Otevri detail te sluzby
Prvni polozka na detailu - Nazev sluzby - je to co musis hledat v
OpenService.
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner@clexpert.cz]On Behalf Of Andreas Bednarek
> Sent: Monday, November 08, 2004 2:56 PM
>
> > Mam neblahy pocit, ze sluzba se jmenuje uplne jinak - InterBaseServer...
> >
> > S pozdravem
> >
> > Milan Tomes
>
> No to je docela podstatna vec A sluzbu 'InterBaseServer'
> dokonce najdu,
> coz je pokrok! Nicmene jak potom rozlisim InterBase of Firebirdu? Me to v
> mem pripade vzdy najde a hlasi stav serveru IB nikoli FB. Mam
> tady totiz oba
> a v pripade moji aplikace je to casty stav, ze bezi IB/FB na
> jednom pocitaci
> a ja bych potrebovat vzdy zjistit stav FB serveru (zda je
> nainstalovany, zda
> bezi).
Odpovedá: Andreas Bednarek
8. 11. 2004 18:00
Jo to je presne ono, ja jsem slepon. Nazev te sluzby je
'FirebirdServerDefaultInstance' a slape to jak ma.
Diky za radu
S pozdravem
A.B.
----- Original Message -----
From: "Milan Tomes" <delphi@haida.cz>
To: <delphi-l@clexpert.cz>
Sent: Monday, November 08, 2004 3:05 PM
Subject: Re: OpenService vraci chybu
> Otevri si seznam sluzeb - Control panel - Nastroje pro spravu - Sluzby.
> Najdi si prislusnou sluzbu
> Otevri detail te sluzby
> Prvni polozka na detailu - Nazev sluzby - je to co musis hledat v
> OpenService.
>
> S pozdravem
>
> Milan Tomes
>
>> [mailto:delphi-l-owner@clexpert.cz]On Behalf Of Andreas Bednarek
>> Sent: Monday, November 08, 2004 2:56 PM
>>
>> > Mam neblahy pocit, ze sluzba se jmenuje uplne jinak -
>> > InterBaseServer...
>> >
>> > S pozdravem
>> >
>> > Milan Tomes
>>
>> No to je docela podstatna vec A sluzbu 'InterBaseServer'
>> dokonce najdu,
>> coz je pokrok! Nicmene jak potom rozlisim InterBase of Firebirdu? Me to v
>> mem pripade vzdy najde a hlasi stav serveru IB nikoli FB. Mam
>> tady totiz oba
>> a v pripade moji aplikace je to casty stav, ze bezi IB/FB na
>> jednom pocitaci
>> a ja bych potrebovat vzdy zjistit stav FB serveru (zda je
>> nainstalovany, zda
>> bezi).
>
>
>